home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / Write3 / Config / OBERON.CONFIG < prev    next >
Encoding:
Text File  |  1996-09-27  |  12.3 KB  |  844 lines
  1. /* $VER: OBERON.CONFIG 3.512 */
  2. VERSIONCHECK 3848 "OBERON.CONFIG"
  3.  
  4. /* Userfunktionen */
  5.  
  6. BEGIN
  7.  
  8.   ;
  9.  
  10. CLOSE
  11.  
  12.   ;
  13.  
  14. SETUSERFKT 0
  15.   SETVAR "_Path" _RS
  16.   NEWED ""
  17.   WINDOW 0 0 0 0
  18.   OPEN _PATH
  19.   ;
  20.  
  21. SETUSERFKT 1
  22.   IF
  23.     COMPARE 0 _CHANGED;
  24.     NOP;
  25.     ASK ("$_FileName$"\nist verändert worden !\nText geht verloren !) "_Ende|Ab_speichern & Ende*|A_bbrechen !^"
  26.     BREAK EQUAL _RN 2 ;
  27.   IF
  28.     COMPARE _RN 1;
  29.     SAVE _FILENAME ;
  30.     NOP;
  31.   QUITED
  32.   ;
  33.  
  34.  
  35. /* Variablen */
  36.  
  37. SETVAR "_ScrRelWidth" 698
  38. SETVAR "_ScrRelHeight" 528
  39. SETVAR "_AutoFold" TRUE
  40. SETVAR "_FoldStart" "(*S*)"
  41. SETVAR "_FoldEnd" "(*E*)"
  42. SETVAR "_AutoIndent" 5
  43. SETVAR "_Optimize" TRUE
  44. SETVAR "_FRPattern" "~(#?(.info|.bak|.modE))"
  45.  
  46.  
  47. /* Tastaturbelegung */
  48.  
  49. KEY "control 1"
  50.   GETNUMBER "Speicher Makro :" 1
  51.   MACROREC _RN
  52.   ;
  53.  
  54. KEY "control 2"
  55.   MACROSTOP
  56.   ;
  57.  
  58. KEY "control 3"
  59.   GETNUMBER "Spiele Makro :" 1
  60.   MACROPLAY _RN 1
  61.   ;
  62.  
  63. KEY "control 4"
  64.   GETNUMBER "Führe Makro aus" 1
  65.   SETVAR "_Reg1" _RN
  66.   GETNUMBER "Führe n mal aus" 1
  67.   MACROPLAY _REG1 _RN
  68.   ;
  69.  
  70. KEY ")"
  71.   WRITETEXT ")"
  72.   CURSORLEFT 0
  73.   MATCHBRACKET
  74.   DELAY 10
  75.   MATCHBRACKET
  76.   CURSORRIGHT 0
  77.   ;
  78.  
  79. KEY "numpad shift 1"
  80.   DOREXX "OberonError.wrx LIST" {@ASYNC}
  81.   ;
  82.  
  83. KEY "numpad shift 4"
  84.   DOREXX "OberonError.wrx PREV" {@ASYNC}
  85.   ;
  86.  
  87. KEY "numpad shift 5"
  88.   DOREXX "OberonError.wrx CURRENT" {@ASYNC}
  89.   ;
  90.  
  91. KEY "numpad shift 6"
  92.   DOREXX "OberonError.wrx NEXT" {@ASYNC}
  93.   ;
  94.  
  95. KEY "control <"
  96.   GETNUMBER "Bewege Block x Spaltenn\nnach links :" 1
  97.   BLOCKLEFT _RN
  98.   ;
  99.  
  100. KEY "control >"
  101.   GETNUMBER "Bewege Block x Spalten\nnach rechts :" 1
  102.   BLOCKRIGHT _RN
  103.   ;
  104.  
  105. KEY "control y"
  106.   DELETELINE
  107.   ;
  108.  
  109. KEY "alt y"
  110.   UNDELLINE
  111.   ;
  112.  
  113. KEY "control x"
  114.   GETNUMBER "Schneide Block in Buffer :" 1
  115.   COPYBLOCK _RN
  116.   DELETEBLOCK
  117.   ;
  118.  
  119. KEY "control c"
  120.   GETNUMBER "Copiere Block in Buffer :" 1
  121.   COPYBLOCK _RN
  122.   SETTITLE "Block kopiert." 0
  123.   ;
  124.  
  125. KEY "control v"
  126.   GETNUMBER "Eeinfügen aus Buffer :" 1
  127.   INSERTBLOCK _RN
  128.   ;
  129.  
  130. KEY "numpad shift 7"
  131.   DOREXX "OberonError.wrx FIRST" {@ASYNC}
  132.   ;
  133.  
  134. KEY "backspace"
  135.   BACKSPACE 0
  136.   ;
  137.  
  138. KEY "tab"
  139.   TAB 0
  140.   ;
  141.  
  142. KEY "shift tab"
  143.   BACKTAB
  144.   ;
  145.  
  146. KEY "return"
  147.   RETURN
  148.   ;
  149.  
  150. KEY "delete"
  151.   DELETE
  152.   ;
  153.  
  154. KEY "shift delete"
  155.   DELETETOEOL
  156.   ;
  157.  
  158. KEY "up"
  159.   CURSORUP 0
  160.   ;
  161.  
  162. KEY "shift up"
  163.   PAGEUP 90
  164.   ;
  165.  
  166. KEY "alt up"
  167.   GOTO _XPOS 1
  168.   ;
  169.  
  170. KEY "down"
  171.   CURSORDOWN 0
  172.   ;
  173.  
  174. KEY "shift down"
  175.   PAGEDOWN 90
  176.   ;
  177.  
  178. KEY "alt down"
  179.   GOTO _XPOS _LENGTH
  180.   ;
  181.  
  182. KEY "right"
  183.   CURSORRIGHT 0
  184.   ;
  185.  
  186. KEY "shift right"
  187.   GOTO @EOL @EOL
  188.   ;
  189.  
  190. KEY "alt right"
  191.   NEXTWORD
  192.   ;
  193.  
  194. KEY "left"
  195.   CURSORLEFT 0
  196.   ;
  197.  
  198. KEY "shift left"
  199.   GOTO @SOL @SOL
  200.   ;
  201.  
  202. KEY "alt left"
  203.   LASTWORD
  204.   ;
  205.  
  206. KEY "f1"
  207.   GOTEXTMARK 0
  208.   ;
  209.  
  210. KEY "shift f1"
  211.   SETTEXTMARK 0
  212.   ;
  213.  
  214. KEY "f2"
  215.   GOTEXTMARK 1
  216.   ;
  217.  
  218. KEY "shift f2"
  219.   SETTEXTMARK 1
  220.   ;
  221.  
  222. KEY "f3"
  223.   GOTEXTMARK HIGHER
  224.   ;
  225.  
  226. KEY "shift f3"
  227.   SETTEXTMARK HIGHER
  228.   ;
  229.  
  230. KEY "f4"
  231.   GOTEXTMARK 3
  232.   ;
  233.  
  234. KEY "shift f4"
  235.   SETTEXTMARK 3
  236.   ;
  237.  
  238. KEY "f5"
  239.   GOTEXTMARK 4
  240.   ;
  241.  
  242. KEY "shift f5"
  243.   SETTEXTMARK 4
  244.   ;
  245.  
  246. KEY "shift f6"
  247.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f6 belegen wollen :" _CURRENTWORD
  248.   KEY "f6"
  249.     WRITETEXT _RS;
  250.   ;
  251.  
  252. KEY "shift f7"
  253.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f7 belegen wollen :" _CURRENTWORD
  254.   KEY "f7"
  255.     WRITETEXT _RS;
  256.   ;
  257.  
  258. KEY "shift f8"
  259.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f8 belegen wollen :" _CURRENTWORD
  260.   KEY "f8"
  261.     WRITETEXT _RS;
  262.   ;
  263.  
  264. KEY "shift f9"
  265.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f9 belegen wollen :" _CURRENTWORD
  266.   KEY "f9"
  267.     WRITETEXT _RS;
  268.   ;
  269.  
  270. KEY "shift f10"
  271.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f10 belegen wollen :" _CURRENTWORD
  272.   KEY "f10"
  273.     WRITETEXT _RS;
  274.   ;
  275.  
  276. KEY "}"
  277.   WRITETEXT ")"
  278.   CURSORLEFT 0
  279.   MATCHBRACKET
  280.   DELAY 10
  281.   MATCHBRACKET
  282.   CURSORRIGHT 0
  283.   ;
  284.  
  285. DOUBLEKEY "rawmouse lbutton mouse_leftpress" "rawmouse lbutton mouse_leftpress"
  286.   IF {@CLEARRN}
  287.     GOTOMOUSE {@SAMEPOS};
  288.     SETMARK;
  289.     GOTOMOUSE ;
  290.   ;
  291.  
  292. DOUBLEKEY "rawmouse shift lbutton mouse_leftpress" "rawmouse shift lbutton mouse_leftpress"
  293.   UNMARK
  294.   GOTOMOUSE
  295.   GOTO @SOW @SOW {@SILENT}
  296.   SETMARK
  297.   GOTO @EOW @EOW
  298.   SETMARK
  299.   GOTOMOUSE
  300.   ;
  301.  
  302. DOUBLEKEY "rawmouse alt lbutton mouse_leftpress" "rawmouse alt lbutton mouse_leftpress"
  303.   UNMARK
  304.   GOTOMOUSE
  305.   GOTO @SOL @SOL {@SILENT}
  306.   SETMARK
  307.   GOTO @EOL @EOL
  308.   SETMARK
  309.   GOTOMOUSE
  310.   ;
  311.  
  312. KEY "rawmouse lbutton mouse_leftpress"
  313.   GOTOMOUSE
  314.   ;
  315.  
  316. DOUBLEKEY "rawmouse rbutton mouse_rightpress" "rawmouse rbutton mouse_rightpress"
  317.   MACROPANNEL
  318.   ;
  319.  
  320. KEY "rawmouse rbutton lbutton mouse_rightpress"
  321.   UNMARK
  322.   ;
  323.  
  324.  
  325. /* Menues */
  326.  
  327. MENU "PROJEKT"
  328.  
  329. ITEM "Öffne..." "O"
  330.   IF
  331.     COMPARE 0 _CHANGED;
  332.     NOP;
  333.     ASK ("$_FileName$"\nist verändert worden !\nText geht verloren !) "_Neu öffnen|_Speichern  & neu öffnen*|A_bbrechen !^"
  334.     BREAK EQUAL _RN 2 ;
  335.   IF
  336.     COMPARE _RN 1;
  337.     SAVE _FILENAME ;
  338.     NOP;
  339.   GETFILE "" ""
  340.   OPEN _PATH
  341.   IF {@CLEARRN}
  342.     EXISTS "$_FileName$E";
  343.     MESSAGE "Code enthält Fehler !" ;
  344.     NOP;
  345.   ;
  346.  
  347. ITEM "Alten File neu laden" "alt r"
  348.   IF
  349.     COMPARE 0 _CHANGED;
  350.     NOP;
  351.     ASK ("$_FileName$"\nist verändert worden !\nText geht verloren !) "_Neu öffnen*|A_bbrechen !^"
  352.     BREAK EQUAL _RN 1 ;
  353.   OPEN _FILENAME
  354.   IF {@CLEARRN}
  355.     EXISTS "$_FileName$E";
  356.     MESSAGE "Code enthält Fehler !" ;
  357.     NOP;
  358.   ;
  359.  
  360. ITEMBAR
  361.  
  362. ITEM "Setze/lösche... »" ""
  363.   NOP
  364.   ;
  365.  
  366. SUB "Text unverändert" ""
  367.   SETVAR "_changed" 0
  368.   ;
  369.  
  370. ITEMBAR
  371.  
  372. ITEM "Neu" "alt n"
  373.   IF
  374.     COMPARE 0 _CHANGED;
  375.     NOP;
  376.     ASK ("$_FileName$"\nist verändert worden !\nText geht verloren !) "_Löschen|_Speichern & löschen*|A_bbrechen !^"
  377.     BREAK EQUAL _RN 2 ;
  378.   IF
  379.     COMPARE _RN 1;
  380.     SAVE _FILENAME ;
  381.     NOP;
  382.   NEW
  383.   SETTITLE "Text gelöscht." 0
  384.   ;
  385.  
  386. ITEMBAR
  387.  
  388. ITEM "Umbenennen..." "R"
  389.   GETSTRING (Benenne\n"$_FileName$"\num...) _FILENAME
  390.   SETVAR "_FileName" _RS
  391.   SETVAR "_Path" _RS
  392.   ;
  393.  
  394. ITEM "Speichern" "S"
  395.   SAVE _FILENAME
  396.   ;
  397.  
  398. ITEM "Speichern als..." "A"
  399.   GETFILE "" "" {@SAVE}
  400.   SETVAR "_FileName" _PATH
  401.   SAVE _FILENAME
  402.   ;
  403.  
  404. ITEM "Speichern & neu öffnen..." ""
  405.   SAVE _FILENAME
  406.   GETFILE "" ""
  407.   OPEN _PATH
  408.   ;
  409.  
  410. ITEM "Text ausdrucken" "*"
  411.   SAVE "PRT:"
  412.   ;
  413.  
  414. ITEMBAR
  415.  
  416. ITEM "Neues Fenster »" ""
  417.   NOP
  418.   ;
  419.  
  420. SUB "GROßES FENSTER" "B"
  421.   NEWED "OBERON.CONFIG"
  422.   WINDOW 0 0 0 0
  423.   ;
  424.  
  425. SUB "kleines Fenster" "W"
  426.   NEWED "OBERON.CONFIG"
  427.   WINDOW 100 50 100 50
  428.   ;
  429.  
  430. ITEM "Iconify" "escape"
  431.   ICONIFY
  432.   ;
  433.  
  434. ITEM "WinArranger" "§"
  435.   WINARRANGER 1
  436.   ;
  437.  
  438. ITEM "WinManager" "$"
  439.   WINMANAGER
  440.   ;
  441.  
  442. ITEMBAR
  443.  
  444. ITEM "Über WRITE" "!"
  445.   ABOUT
  446.   ;
  447.  
  448. ITEMBAR
  449.  
  450. ITEM "Speichern & Verlassen" "E"
  451.   IF
  452.     COMPARE 0 _CHANGED;
  453.     NOP;
  454.     SAVE _FILENAME ;
  455.   QUITED
  456.   ;
  457.  
  458. ITEM "Ende" "Q"
  459.   IF
  460.     COMPARE 0 _CHANGED;
  461.     NOP;
  462.     ASK ("$_FileName$"\nist verändert worden !\nText geht verloren !) "_Ende|_Speichern & Ende*|A_bbrechen !^"
  463.     BREAK EQUAL _RN 2 ;
  464.   IF
  465.     COMPARE _RN 1;
  466.     SAVE _FILENAME ;
  467.     NOP;
  468.   QUITED
  469.   ;
  470.  
  471. MENU "EDIT"
  472.  
  473. ITEM "Undo" "ß"
  474.   UNDO 1
  475.   ;
  476.  
  477. ITEM "Undo..." ""
  478.   GETNUMBER "Wieviel Schritte wollen\nrückgängig machen ?" 1
  479.   UNDO _RN
  480.   ;
  481.  
  482. ITEMBAR
  483.  
  484. ITEM "Setze Marke" "M"
  485.   SETTITLE "Marke gesetzt." 0
  486.   SETMARK
  487.   ;
  488.  
  489. ITEM "Lösche Marke" "U"
  490.   UNMARK
  491.   ;
  492.  
  493. ITEMBAR
  494.  
  495. ITEM "Ausschneiden" "X"
  496.   COPYBLOCK 0
  497.   DELETEBLOCK
  498.   ;
  499.  
  500. ITEM "Kopieren" "C"
  501.   COPYBLOCK 0
  502.   SETTITLE "Block kopiert." 0
  503.   ;
  504.  
  505. ITEM "Einfügen" "V"
  506.   INSERTBLOCK 0
  507.   ;
  508.  
  509. ITEM "Löschen" ""
  510.   DELETEBLOCK
  511.   ;
  512.  
  513. ITEMBAR
  514.  
  515. ITEM "Clipboard »" ""
  516.   NOP
  517.   ;
  518.  
  519. SUB "Ausschneiden nach Clip" "alt x"
  520.   COPYBLOCK 0
  521.   BUFFERTOCLIP 0 0
  522.   DELETEBLOCK
  523.   ;
  524.  
  525. SUB "Nach Clip kopieren" "alt c"
  526.   COPYBLOCK 0
  527.   BUFFERTOCLIP 0 0
  528.   SETTITLE "Block kopiert." 0
  529.   ;
  530.  
  531. SUB "Einfügen aus Clip" "alt v"
  532.   CLIPTOBUFFER 0 0
  533.   INSERTBLOCK 0
  534.   ;
  535.  
  536. SUB "Buffer nach Clip" ""
  537.   BUFFERTOCLIP 0 0
  538.   ;
  539.  
  540. SUB "Clip nachBuffer" ""
  541.   CLIPTOBUFFER 0 0
  542.   ;
  543.  
  544. ITEMBAR
  545.  
  546. ITEM "Lösche Buffer" ""
  547.   CLEARBUFFER 0
  548.   SETTITLE "OK." 0
  549.   ;
  550.  
  551. ITEMBAR
  552.  
  553. ITEM "Block links" "<"
  554.   BLOCKLEFT 1
  555.   ;
  556.  
  557. ITEM "Block rechts" ">"
  558.   BLOCKRIGHT 1
  559.   ;
  560.  
  561. MENU "INTERN"
  562.  
  563. ITEM "Parse Buffer..." ""
  564.   GETNUMBER "Parse Buffer :" 0
  565.   SETTITLE "PARSING..." 1
  566.   PARSEBUFFER _RN
  567.   FLASH
  568.   ;
  569.  
  570. ITEM "Parse Block" ""
  571.   COPYBLOCK 1
  572.   SETTITLE "PARSING..." 1
  573.   PARSEBUFFER 1
  574.   FLASH
  575.   ;
  576.  
  577. ITEM "Parse File..." ""
  578.   GETFILE "" ""
  579.   LOADBUFFER _PATH 1
  580.   SETTITLE "PARSING..." 1
  581.   PARSEBUFFER 1
  582.   FLASH
  583.   ;
  584.  
  585. ITEMBAR
  586.  
  587. ITEM "Führe Buffer aus..." ""
  588.   GETNUMBER "Führe Buffer aus :" 0
  589.   SETTITLE "EXECUTING..." 1
  590.   DOBUFFER _RN
  591.   FLASH
  592.   ;
  593.  
  594. ITEM "Führe Block aus" ""
  595.   COPYBLOCK 1
  596.   SETTITLE "EXECUTING..." 1
  597.   DOBUFFER 1
  598.   FLASH
  599.   ;
  600.  
  601. ITEM "Führe Komando aus..." "D"
  602.   GETSTRING "Bitte geben sie WRITE-Komandos ein :" ""
  603.   DOSTRING _RS
  604.   ;
  605.  
  606. ITEM "Führe File aus..." ""
  607.   GETFILE "" ""
  608.   LOADBUFFER _PATH 1
  609.   SETTITLE "EXECUTING..." 1
  610.   DOBUFFER 1
  611.   FLASH
  612.   ;
  613.  
  614. ITEMBAR
  615.  
  616. ITEM "Nehme Makro auf" "1"
  617.   MACROREC 0
  618.   ;
  619.  
  620. ITEM "Stoppe  Aufnahme" "2"
  621.   MACROSTOP
  622.   ;
  623.  
  624. ITEM "Spiele ab" "3"
  625.   MACROPLAY 0 1
  626.   ;
  627.  
  628. ITEM "Speile mehrmals ab..." "4"
  629.   GETNUMBER "Replay it n times " 1
  630.   MACROPLAY 0 _RN
  631.   ;
  632.  
  633. MENU "EXTERN"
  634.  
  635. ITEM "Neue Shell" "."
  636.   SYSTEM "NewShell"
  637.   ;
  638.  
  639. ITEM "DOS-Execute..." ""
  640.   GETSTRING "Geben sie ein CLI-Komando ein :" ""
  641.   SYSTEM _RS {@ASYNC}
  642.   ;
  643.  
  644. MENU "REXX"
  645.  
  646. ITEM "Führe Rexx aus..." ""
  647.   GETSTRING "Geben sie ein REXX-Komando ein :" ".wrx"
  648.   DOREXX _RS {@ASYNC}
  649.   ;
  650.  
  651. ITEMBAR
  652.  
  653. MENU "UTLITIES"
  654.  
  655. ITEM "Schreibe Zeichen..." "alt space"
  656.   GETNUMBER "Geben sie den\ndezimalen ASCII-CODE\ndes Zeichen ein :" 0
  657.   WRITECHAR _RN
  658.   ;
  659.  
  660. ITEM "Zeige Zeit & Datum" "T"
  661.   MESSAGEOK "Aktuelle Zeit ist :\n$_Time$"
  662.   ;
  663.  
  664. ITEMBAR
  665.  
  666. ITEM "UPPER word" "^"
  667.   UPPERBLOCK @SOW @SOW @EOW @EOW
  668.   ;
  669.  
  670. ITEM "lower word" "#"
  671.   LOWERBLOCK @SOW @SOW @EOW @EOW
  672.   ;
  673.  
  674. ITEMBAR
  675.  
  676. ITEM "Match Bracket" "("
  677.   MATCHBRACKET
  678.   ;
  679.  
  680. MENU "SEARCH"
  681.  
  682. ITEM "Zähle..." ""
  683.   GETFINDREPLACE _FINDSTRING ""
  684.   IF
  685.     COMPARE _MARKED HIGHER;
  686.     FIND @MARKA @MARKA @MARKB @MARKB {@COUNT};
  687.     FIND @CURSOR @CURSOR @EOT @EOT {@COUNT};
  688.   MESSAGEOK "\"$_FindString$\"\nwurde $_RN$ mal gefunden !"
  689.   ;
  690.  
  691. ITEMBAR
  692.  
  693. ITEM "Finde..." "F"
  694.   GETFINDREPLACE _FINDSTRING ""
  695.   IF
  696.     COMPARE _MARKED HIGHER;
  697.     FIND @MARKA @MARKA @MARKB @MARKB ;
  698.     FIND @CURSOR @CURSOR @EOT @EOT ;
  699.   ;
  700.  
  701. ITEM "Finde noch einmal" "N"
  702.   IF
  703.     COMPARE _MARKED HIGHER;
  704.     FIND @MARKA @MARKA @MARKB @MARKB ;
  705.     FIND @CURSOR @CURSOR @EOT @EOT ;
  706.   ;
  707.  
  708. ITEMBAR
  709.  
  710. ITEM "Ersetze..." "Y"
  711.   GETFINDREPLACE _FINDSTRING _REPLACESTRING {@REPLACE}
  712.   IF
  713.     COMPARE _MARKED HIGHER;
  714.     REPLACE @MARKA @MARKA @MARKB @MARKB ;
  715.     REPLACE @CURSOR @CURSOR @EOT @EOT ;
  716.   ;
  717.  
  718. ITEM "Ersetze noch einmal" "Z"
  719.   IF
  720.     COMPARE _MARKED HIGHER;
  721.     REPLACE @MARKA @MARKA @MARKB @MARKB ;
  722.     REPLACE @CURSOR @CURSOR @EOT @EOT ;
  723.   ;
  724.  
  725. ITEM "Ersetze alle..." ""
  726.   GETFINDREPLACE _FINDSTRING _REPLACESTRING {@REPLACE}
  727.   IF
  728.     COMPARE _MARKED HIGHER;
  729.     REPLACE @MARKA @MARKA @MARKB @MARKB {@ALL};
  730.     REPLACE @CURSOR @CURSOR @EOT @EOT {@ALL};
  731.   FLASH
  732.   ;
  733.  
  734. ITEM "Ersetze alle schnell..." ""
  735.   GETFINDREPLACE _FINDSTRING _REPLACESTRING {@REPLACE}
  736.   SILENT
  737.   IF
  738.     COMPARE _MARKED HIGHER;
  739.     REPLACE @MARKA @MARKA @MARKB @MARKB {@ALL @NOREQ};
  740.     REPLACE @CURSOR @CURSOR @EOT @EOT {@ALL @NOREQ};
  741.   WINDOW 0 0 0 0
  742.   MESSAGEOK (Es wurde $_RN$ mal\n"$_FindString$"\ndurch\n"$_ReplaceString$"\nersetzt.)
  743.   ;
  744.  
  745. ITEMBAR
  746.  
  747. ITEM "Suche nach Muster..." ""
  748.   GETSTRING "Bitte geben sie das Suchmuster an :\n(Case)" _PATCASE
  749.   SETVAR "_PatCase" _RS
  750.   FINDPATTERN @CURSOR @EOT {@CASE}
  751.   ;
  752.  
  753. ITEM "Suche noch einmal" ""
  754.   FINDPATTERN @CURSOR @EOT {@CASE}
  755.   ;
  756.  
  757. ITEM "Suche nach Muster (no Case)..." "Ö"
  758.   GETSTRING "Bitte geben sie das Suchmuster an :\n(No case)" _PATNOCASE
  759.   SETVAR "_PatNoCase" _RS
  760.   FINDPATTERN @CURSOR @EOT {@NOCASE}
  761.   ;
  762.  
  763. ITEM "Suche noch einmal" "Ä"
  764.   FINDPATTERN @CURSOR @EOT {@NOCASE}
  765.   ;
  766.  
  767. ITEMBAR
  768.  
  769. ITEM "Springe zu Zeile..." "G"
  770.   GETNUMBER "Springe zu Zeile :" _YPOS
  771.   GOTO _XPOS _RN
  772.   ;
  773.  
  774. ITEMBAR
  775.  
  776. ITEM "Zeige Index..." "J"
  777.   GETSTRING "Bitte geben sie das Suchmuster\nfür den Index an :" "#?PROCEDURE#?"
  778.   SHOWINDEX _RS {@CASE}
  779.   ;
  780.  
  781. MENU "FOLDS"
  782.  
  783. ITEM "Falte Block" "alt f"
  784.   FOLD @MARKA @MARKB
  785.   ;
  786.  
  787. ITEM "Entfalte Zeile" "alt u"
  788.   UNFOLD @CURSOR @CURSOR 1
  789.   ;
  790.  
  791. ITEM "Falte zurück" "alt shift f"
  792.   REFOLD
  793.   ;
  794.  
  795. ITEMBAR
  796.  
  797. ITEM "Entfalte alles..." ""
  798.   GETNUMBER "Wieviele Faltungsebenen\nsollen entfaltet werden ?" 1
  799.   UNFOLD @SOT @EOT _RN
  800.   ;
  801.  
  802. MENU "PREFS"
  803.  
  804. ITEM "Globale Prefs" ""
  805.   GPREFS
  806.   ;
  807.  
  808. ITEM "Prefs" "+"
  809.   PREFS
  810.   ;
  811.  
  812. ITEMBAR
  813.  
  814. ITEM "Zeige Konfiguration" ""
  815.   GETFILE _Path "#?.config"
  816.   NEWED ""
  817.   WINDOW 0 0 0 0
  818.   OPEN _RS
  819.   ;
  820.  
  821. MENU "HELP"
  822.  
  823. ITEM "Help..." "Shift Help"
  824.   HELP
  825.   ;
  826.  
  827. ITEM "Zeige Variablen" ""
  828.   SHOWVARS
  829.   ;
  830.  
  831. ITEM "Zeige Funktionen" ""
  832.   SHOWFUNCTIONS
  833.   ;
  834.  
  835. ITEM "Zeige ASCII-Codes" ""
  836.   SHOWASCII
  837.   ;
  838.  
  839. ITEM "Hilfe zu Stichwort..." "?"
  840.   GETSTRING "Bitte geben sie das gesuchte Stichwort ein :" ""
  841.   GUIDEHELP _RS
  842.   ;
  843.  
  844.